﻿Public Class DLSAInvoice
    Inherits DLBaseBusiness

#Region "Declaration"

#End Region

#Region "Property"

#End Region

#Region "Constructor"

    Public Sub New(ByVal databaseConnectionName As String)
        MyBase.New(databaseConnectionName)
        Me.strSubSystemCode = "SA"
    End Sub

#End Region

#Region "Method"

#Region "Private Method"

#End Region

#Region "Public Method"

    Public Sub GetINInwardVoucherItemID(ByRef table As DataTable, ByVal sItemID As String)
        db.LoadDataSet("Proc_DI_SelectINInwardItem", table.DataSet, New String() {table.TableName}, sItemID)
    End Sub

#End Region

#Region "Overridable"

#End Region

#End Region

#Region "Event"

#Region "Form event"

#End Region

#Region "Control event"

#End Region

#Region "User event"

#End Region

#End Region
End Class
